home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc1
/
esclc20f.lha
/
EasyRexx
/
ReqTest.erex
< prev
next >
Wrap
Text File
|
1996-03-31
|
580b
|
28 lines
/* EasyCalc 2.0 Arexx Script */
options results
'getresponse "This script demonstrates some of the EasyCalc 2.0 requester functions" "_Begin"'
'getfile "The file requester..."'
if result="" then
'getresponse "You didn''t choose anything" "_No"'
else
'getresponse' result "_Yes"
'getnumber "Enter a number..." 0 1000'
if result="" then
'getresponse "You didn''t enter anything" "_Sorry"'
else
'getresponse' result '_Yes'
'gettext "Now enter some text..." 40'
if result="" then
'getresponse "You didn''t enter anything" "_Shame"'
else
'getresponse' result '_Correct'